home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Add-Ons / After Dark / About Box / Example Use of ADAB / AD_About_Box.p next >
Encoding:
Text File  |  1993-11-07  |  1.0 KB  |  29 lines  |  [TEXT/PJMM]
  1. unit AD_About_Box;
  2. interface
  3.     uses
  4.         Sound, GraphicsModuleTypes;
  5.  
  6.     procedure FindShallowestMonitor (var depth: integer; HelpWindowRect: Rect; params: GMParamBlockPtr);
  7.  
  8.     procedure DoAboutBox (PreferredFont, PreferredSize, TEXTID, CPICTID, BWPICTID, BWTextMode, Depth: integer; CMargins, BWMargins: Rect; RGBTEXTColor, RGBBackgroundColor: RGBColor);
  9.  
  10. implementation
  11.  
  12. {---------------FindShallowestMonitor---------------------}
  13.  
  14.     procedure FindShallowestMonitor (var depth: integer; HelpWindowRect: Rect; params: GMParamBlockPtr);
  15.         var
  16.             i: integer;
  17.             resultRect: Rect;
  18.     begin
  19.         depth := 64;
  20.         for i := 0 to params^.monitors^.monitorCount - 1 do
  21.             if (params^.monitors^.monitorList[i].curDepth < depth) & (SectRect(HelpWindowRect, params^.monitors^.monitorList[i].bounds, resultRect)) then
  22.                 depth := params^.monitors^.monitorList[i].curDepth;
  23.     end;
  24.  
  25.  
  26.     procedure DoAboutBox (PreferredFont, PreferredSize, TEXTID, CPICTID, BWPICTID, BWTextMode, Depth: integer; CMargins, BWMargins: Rect; RGBTEXTColor, RGBBackgroundColor: RGBColor);
  27.     external;
  28.  
  29. end.